' BASIC Anywhere Machine program by Charlie Veniot
' mod of Dav5.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.21 at 03.15
FOR a = -1 TO 63 
2    IF a = -1 THEN SCREEN 13 ELSE PALETTE a, _rgb2bgr(_rgb32(0, a*4, 0 ) )
3  NEXT 
4  x% = INT(RND * 320) 
5  y% = INT(RND * 200) 
6  FOR z% = RND * 63 + 1 TO 1 STEP -1 
7    IF INKEY$ = "" THEN CIRCLE (x%, y%), z%, -z% + 64, , , INT(RND * 320) * RND * .1 ELSE END 
8    IF z% > 1 THEN PAINT (x%, y%), -z% + 64 ELSE GOTO 4 
9  NEXT